The Mad Programmer: Paul Holmgren 
Igor: Willie Jones 


Welcome to a new experience in Timex telecommunications. 


The Indiana Sinclair Timex users Group was formed as a result of Frank Davis's work after the’ 
Mid-West TS Computer Fest. Several of the members left the Fest with a copy of T/S Tinyboard 
by Randy Gordon. At an early meeting it was revealed that one of our members had an extra 
phone line and wanted to run Tinyboard as a service to the membership. 


After we got the BBs up and running he found that he could not keep the darn thing running 
very well. It was decided that the program needed looking at. After many examinations we decid- 
ed to start over with the goals of designing a reliable and easy to operate BBs. 


Tinyboard, in the form we got it, did not work for us. No reflection on Randy, we just needed 
and wanted more, and set out to get it. After considerable trials and tribulations writing the 
program, up-loading or Pony Expressing it to the operating location to put it to the test; we 
succeeded. To test this type of program you really need to use it to gain accurate information 
when it crashes, of which we had our share. 


A strong "Thank You" goes to Willie Jones. He ran each change as they were made available and 
reported the bugs and crashes accurately, allowing the Mad Programmer to address the problems 
with out having actually seen them sometimes. We shared a lot of frustrations getting this far 


Here are the results of many hours of design, testing, rewriting, and of course, lots of debugging 


The L.S.T.U.G. Timex-Board has run online and 99% worry free for some time now, running with 
these features. 


You do not need any expansion memory devices 

A real time clock, advances the date at midnight 

A 40 message message base 

A Quick message scan that lists the mess. no., date and time left, and the To and From names 

A users log, if you wish 

A provision allowing some non-Timex callers to use our BBs. (some use a different code for 
NEWLINE/RETURN) 

and the basic features of T/S Tinyboard i 

The callers name and date/time called, any messages to the SYSop,mess. read/left log, and 

when they logoff are all LPRINTED. It uses the 2040 printer for its ease, but any setup will do. 

Our SYSop has found it a great tool for managing the BBs. 


Since none of us had an expanded machine, we used all the programming tricks we could (at least 
the ones I know) so that we could leave some free memory to allow changes for a mass storage 
device and its operation. Careful study of the program will show you that we did a lot of seem- 
ingly strange things with Basic. There is a reason to this madness. We worked real hard to save 
as much memory as we could and maintain reasonable speed. Where program speed is important 
we did ok. Uhere we wanted to control the speed or where memory saving tricks would not hurt 
us we did the best we could. CAUTION: Because parts of the program jump around be real careful 
if you start to change parts of the program we do not ask you to change. 


FIRST make a copy of this program and set aside the original, work only on your copy. This is for 
your own good. Soon enough you are going to want to make changes and at least you will have 
something to fall back on when and if you mess up the program. 


Now, lets decide what you are going to call your BBs. 


With these instructions handy, lets set up the BBs. 


a 


All sections are identified with REM lines in INVERSE VIDEO so we are going to use the REM lines 
as locators for each segment as we proceed through the program setup. 


Lets look at the idle screen first. You have the name for your BBs handy? Good, look for REM 
idle SCREEN$. Here vou will find "The I.S.T.U.G. BBS", thats what you are going to change. You 
did leave the COPYRIGHT information alone didn't you. Bleave me, in it's current format it is 
important. Later you will see why. 


Try this, find the REM logon DATA line. Direct command: RESTORE xxxx, xxxx-that line. Direct 
command again, READ A: FOR A=1 TO A: READ P$:PRINT P$:NEXT A. You can use this method to test 
your setups also. During all the debugging I used a PRINT GRAPHIC 8 after the NEXT A to see 
where the routine placed the last line. 


Thats how this part of the BBs looks to the caller. You can use this method for each DATA 
segment in the program. 


Format your logon screen and a bulliten screen now. When you think you have something you like 
lets examine the program so you can install your information. 


The following information applys to all the DATA statements in the program. 


The number in the first DATA statement sets the amount of lines sent by the program to the 
caller. If you see, or want a blank line sent use ,"', to do that, as the sample shows. Make a copy 
of your screen when you are done formatting it. Now set each line up as DATA segments. Limit 
each segment to 31 charactors or less if you can. If you need a full line the program will cause 
an extra linefeed to seem to have happened. That can let you elimanate a ,"", if you had 1 

there. The total lines in your screen that you want the caller to see is the number you use in 
the DATA statement. We provide anextra DATA line to make it easy to format your version. 


Meanwhile back at the REM logon DATA segment, there's our name again. Change it to yours. 
Next find REM menu DATA, and change the name there. 

Now look at the REM bull DATA. We left a basic message here. We use this area to let callers 
know about our user group meetings, or other information that doesn't fit in the logon section. 
Did you change the name of the SYSop? Good for you. Please leave the Mad Programmers name 
intact, you don't want him to haunt you forever do you? 


Next lets change the REM quit DATA. Here again you need to set up your closing message/com- 
ment. SPECIAL CAUTION: the line counter number MUST be 1 less then the total count. That's 
because the program uses the "Goodby, Hanging up now" statement later in the program. It 
works well, so pay heed. If you don't then you might mess up the program and you don't want to 
do that now do you? The Mad Programmer wants you to have a smooth running BBs. 


Shall we discuss the users DATA next? Well I will. This is your BBs so we left the section in but 
empty. We list the frequent callers here. HINT: As you identify those you wish to place on your 
list keep track of the DATA statement count. You will use less memory if you list the long names 
first. We use this format DATA "Paul Holmgren Willie Jones". Thus printing out 2 columns. 

If you want to remove this feature, you need to change the REM menu DATA statements, delete 
the REM USR DATA area, and remove the U option in the menu select prompt line and the IF cS: 
"u" GR c$="U" line. 


One last change. Find REM edit. In this area find LET m$(33 TO J- "SYSop Wille”. Your SYSop' S 
name goes here also. 


If you have not gotten lost yet we are ready to RUN the program. 


So, have you done that yet? Since this is the first time through you have no message base so 
answer the prompt with "n". Whoa, whats this? well, you are in the SYSop operations area. Get 
your watch out. This is next. Select E to establish correct time. Answer the prompts in the 
formats shown please. We are using a 24 hour clock, so time runs from 00 to 23 hours. All done? 
Lets check the time. Nice isn't it. 


NOTE: At the end of the month please check and update the date information. 


If you want to leave a message for new callers, do it now. We used message 1 to do that. Watch 
the prompts. After the message header PRINTs at the top of the screen you are ready to type. 
Here we used the INPUT function. Therefore typing a line of 31 charactors should be easy. At 
the end of each line INPUTed the program places a NEWLINE code. Corrections are done in the 
normal mannor. When you are done press ENTER, then SYMBL/SHIFT D= STEP, then ENTER again. 
The message is finished. If you use M or H at the SYSop menu, the program will be ready for it's 
first caller. GOOD LUCK! 


Area by Area explanations of Use/Abuse/Highpoints. 
Once again we are going to use the INVERSE VIDEO REM line locators for each segment. 


First: Error trapping is for when something happens that ended up stopping/crashing/locking up 
the host computer. We did not want the operations of the program or any inputs by the caller or 
even the caller hanging up at odd times to tie up the computer. 

It is used all over the program. There are 2 main methods. 

1 using ON ERR THEN GO TO XXXX 

2 testing for certian conditions 


Early on we used GO SUB/RETURN a lot, but that proved to be a major contributor to crashing. 
A way was found around that. The variable ret=RETURN, ergo LET ret=xxxx/GO TO yyyv/GG TO ret 
handles all that now. 


With that out of the way lets concider REM BEEP: the loop resets x to =1, After it's use. We use 
x as 1 several times. You can change the BEEP but please leave the loop alone. 


REM test FOR sysop access: Here again the 7 bit status is confirmed. If INX128 tests for an 
active modem connection. We also test for an interuption request by the SYSop for CHAT or 

EDIT mode. SYMBL/SHIFT D= STEP allows you to go to SYSop edit mode from several points. Holding 
C down will take you to CHAT mode. 


REM start/set on LINE time: Here we allow those calling that cann't use a linefeed control code= 
13 to use the BBs and set a variable to time the call. We also call a routine, if needed, that 
changes all the embedded codes in the message base to match. 


REM menu: of course has to handle upper/lower case. 
REM CLS SCREEN$ ,12-FF: At this time a form feed works great to clear the callers screen. 


REM FORMAT & READ header: The string slicing also controls the timing of the printout to the 
caller. We think it works great without any PAUSE. 


REM READ mess: Only numbers are allowed here and the caller must use a RETURN/NEWLINE/ENTER 
to proceed. We don't let them read a mess. that is not there. For the SYSop the screen clears 
then says "Working", that way you know something is going on. Of course we only send the caller 
the valid length of the message. CONTROL C=3 is the flag for that operation. Doing it that 

"way speeded up the output to the caller. Then the printer makes noises. (Prints out "Read mess. 
Hx) 


REM con=CONTINUE: Here we give the caller control over when to proceed for another action. 


REM leave message: First we ask if the mess. is for the SYSop, if so then we set up to LPRINT 
the mess. and not putting it in the mess. base. More on that later. Lets find the first available 
blank mess.. Now that we have it the caller gets a chance to enter a mess.. All done?: Tell the 
caller "Mess. saved", if the caller fills the mess. then close the mess. and tell the caller "Mess. 
full and saved". 


REM Quick scan: Prints mess. no., date and time mess. left, and the To: VERO info. The caller 
can use a CONTROL C to abort the scan. 


REM chat: Seems normal until you hit ENTER, that causes the caller to get a "' prompt on his 
screen. Likewise if the caller uses ENTER/NEULINE then you get a flashing '^" on your screen. 
CAUTION: If you (as sysop) make a typing error DO NOT use DELETE. Use the LEFT ARROW. DELETE 
CLEARS the callers screen. Just count in your head how far to go back and use the LEFT ARROW 
to do that. Hitting any key when the caller is requesting CHAT should take you there. SYMBL/ 
SHIFT D= STEP will return you to the SYSop menu. 


REM quit BBs: Here we allow the caller to RETURN to the main menu if he aot here by mistake. 
If the caller wishes to leave then we use the last DATA segment from the quit DATA area, and 
send the callers date, time of day, and time online to the caller and your printer. 


REM timer: The first line does the major time computations. If you find your computer is not 
keeping accurate time change the 3600 in the first calculation in steps of 5 first. The rest of 
the routine converts the calculations into a usable time representation, both for current local 
time and for the callers online time. 


REM edit: First we send a mess. to the caller that we are taking control of the program, then 
you are in EDIT mode. Use E to correct the clock and to set the time before you use the pro- 
gram. Use H or M to leave EDIT and to return the caller to the program. If you access EDIT 
during an idle time this also resets the program to Scanning Phone Line because the error trap- 
ping has tested for a modem in use and decided that since no one is there lets disconnect and 
wait for a call. Use L, or Q and the program uses a variable flag so that you can use a part of 
the program for each request's use without having separate sections doing the same work. The 
program prints to your screen and not to over the modem. Here also we used a prompt allowing 
control of the programs proceedings. IMPORTANT: Every time you use the SAVE or LOAD func- 
tion you will have to E stablish the correct time again. 


REM error trapped messages: Here we placed messages to indecate to the proper party a trou- 
ble condition occured. 


REM LPRINT SYSop mess: Even tho we have a 40 message setup we DIMed 41, m$(41) is used to 
temporarily store the mess. for the SYSop. So the mess. no. is set to 41 and then jump to reg- 
ular leave mess. section to fill the mess. and return here to LPRINT it. 


REM init: of course you know what this area is for. SEVERAL things to watch for. 

sm - 41, this is done to save memory later, it's used elsewhere and it works. Dodn't lose it. 

this is where d$ is setup. Neat trick: if you save the mess. base we LET m$(sm)-d$, this stores 
the DATE/TIME info for the messages with the mess. base in a single SAVE. When you LOAD the 
mess. base back in we then LET d$-m$(sm). Voila! through the miracle of string slicing the mess- 
ages are now date/time marked again when it's needed. 

CAUTION: The machine code for allowing other callers using a different control code for line- 
feeds is designed for m$(41,600), thats 24,600 bytes it searches, don't change it. 


REM SAVE: If you are going to save the program and use an existing mess. base later, save the 
mess. base using the EDIT mode first. Then you can BREAK the program and RUN this line. 


If vou start to add/make changes and end up hitting ERROR REPORT stating out of memory, you 
can DELETE the REM lines, they use over 600 BYTES of memory. Also CLEAR 65535 gets you 168 
bytes more. 


If you want to change the size of the mess. base the machine code will have to be changed. If 
there are any changes you wish to make and the programming is a bother, write and tell me 
what you are trying to do. There is a real good chance we can help you get just what you want 
within the confines of the programs operations. 


The version of this program I.S.T.U.G. is using has been modified to the SYSop's liking. As you 
better understand the program you can make changes that you want. 


Paul Holmgren ni ou Mops 
Indy, In. 


Tne variables used, and why they are named thusly 


rcv receive, Gets information from the caller 

xmt transmit. Primes modem to send info to caller 

EELZ’ BA X time string, t$6125 stores callers on line time, 
te 29 stores current time 

tem base time mark for callers tite on line 

ds, mo, ur das. month and wear 

Min. hr current miniute and hour 

time Haed in comPutins the time settings 


T$, hr. min are reset each time the time subroutine is 
accéssed 


tc thé Port tie test for an active modem connection 
vil routing to line teed you and the caller 

zm routine ta send message in Pt to caller, variable 
is 


alzo used at this time in some routines t save 


memory 
F5 , contains any informátion to be sent to the 
caller 
begp | routine tao signal Sysop and rézet the x variable 
g&omet.imes 
fae Ti. main menu line address for the caller 
cli clear and rezet the callers screen 
con a Prompt for the caller to control a Pause 
15 © this is the line feed value gent to the caller 
ARC eme 9 holda the date and time data for che messages in 
the 
mezzate haze, it svete stnings ziiced alot 
me 41,6089 the message base 
ch and c convert callers inPut to someching the Praaram 
Cam uz 
xo aywl ou FOR 54 MEST look variables 
Fl nd P2 Position variables in the ü.1ck Scan routine 
ed flaco used in the SsscoP edit menu oPeration 
P | another flag. used in leaving a less then full 


mezsade 

to the zgzoP 
wmtisweceol used in chat for charactor tranzmit4receiw 
ne name atring holds callers name 


Key 


og MUL. 
a1 SOH 
g2 STX 
43 ETH 
g4 EQT 
85 EH 
BE ACK 
Of G BEL 
B3 H ES 
93 HT 
id J LF 
11 VT 
12 F FF 
13 M CR 
14 N SO 
i5. 0 5S 
16 DLE 
17 DC 
ei HRK 
22 S'YH 
23 ETB 
24 Xx CAH 
e5 Y EM 
26 Z SUB 
ai ESC 
26 2 FS 
23 3 GS 
dü 4 RS 
31. 2. US 
Be SF 
127 DEL. 
CAPS SHIFT 
QUT = & 
1 
< 
4 
31 
34 


133 


NAME 


null 

start of heading 
start of text 

end of text 

end of transmission 
enquiry 

acknowledge 

bell 

back sPace 


MTERM 


function — 


ring bell 


CUP Ser 


back 1 Pace and erase 


horizonal tab curser right to next 8 tabPosotion 
line feed curser down and start of new line 
vertical tab ` 
form feed scroll sereen (6 7 lines» 
carriage return curser down and start of new line 
shift out curser on 
shift in curser off 
data link escaPe 
device control 
negitive acknowledge 
aynchronous idle 
end of trans. block 
cancel curser left on column 
end of medium " right 1 
gubstitute " down 1 line 
escape curser uP 1 line 
file seP arator curser home, toP line 
araou return curser to start of line 
record " eras e to end of line 
unit " "  — gcreen 
sPace Cbhlank 3 
delete 

L2 clears the callers screen 

hang uP 

end 
Pulse kill tone but not disconnect 
starts 


Pulse 


inits Phone for auto dial 


starte carrier tone 


carrier tone Prese 
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